home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / lib / mathlib / libconv / TRY / simple_dcor1d.f < prev    next >
Encoding:
Text File  |  1994-08-02  |  290 b   |  19 lines
  1.     subroutine simple_dcor1d( nf, ng, f, g, h)
  2.     double precision f(0:(nf-1)), g(0:(ng-1)), h(0:ng+nf-2)
  3.     integer nf, ng
  4.  
  5.     integer i,j,k
  6.  
  7.     do k = 0, ng+nf-2
  8.         h(k) = 0.0
  9.     end do
  10.  
  11.     do j = 0, ng-1
  12.         do i = 0, nf-1
  13.         h(ng-1+i-j) = h(ng-1+i-j) + f(i) * g(j)
  14.         end do
  15.     end do
  16.  
  17.     return
  18.     end
  19.